home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / pctj8406.arc / TEST2.PRG < prev    next >
Text File  |  1986-09-14  |  256b  |  13 lines
  1. *********************
  2. * Program TEST2.PRG *
  3. *********************
  4. ERASE
  5. @ 5,20 SAY "This is N1"
  6. @ 6,25 SAY N1 PICTURE '999'
  7. STORE 1 TO N2
  8. DO WHILE N2<50
  9. STORE N2+1 TO N2
  10. ENDDO
  11. RETURN
  12.  
  13.